home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr10 / qerecall.zip / FILESAVE.QM next >
Text File  |  1993-06-07  |  2KB  |  44 lines
  1. * FILESAVE MACRO
  2. *       Written By Bradley M. Small Copyright 1993
  3. *                  313 Holt Ave
  4. *                  Greensboro, NC 27405
  5. *                  (919)272-6431
  6. *    If this solves any problems or shines a little sunshine into
  7. *    your life feel free to send me a buck, or an other good macro.
  8. *
  9. *    Distribution Encouraged/Sale or inclusion in a sold product prohibited
  10. *
  11. *       Saves for recall all filenames into the list c:\qedit.mac\recall.qed
  12. *           recall.mac is used to load them at startup
  13. *
  14. *
  15. ^x     MacroBegin
  16.         SetScreenOff SetSoundOff
  17.         Gsave
  18.         EditFile "c:\qedit.mac\recall.qed" return
  19.                                         * edit recall file
  20.         MarkLine Endfile DeleteBlock    * clear file of its contents
  21.         CurrentFileName Return          * put filename as first line
  22.         Loop:
  23.         NextFile BegFile                * top line of next file
  24.         Markline find "c:\qedit.mac\recall.qed" return "gli" return
  25.                                         * if it is recall file
  26.         Jtrue Done:                     * then we are done
  27.                                         * else snatch Current file name
  28.         BegFile UnmarkBlock Addline     *   set up file name
  29.         BegLine DropAnchor              *   mark it
  30.         CurrentfileName DropAnchor      *
  31.         Cut                             *   cut it
  32.  
  33.         Quit                            * Quit the file (it was saved already)
  34.         EndFile
  35.         Paste
  36.                                         * Put the file name on the command line
  37.         UnMarkBlock                     * Clean up
  38.  
  39.         Jump Loop:                      * Check the next file
  40.         Done:
  41.         Begfile                         * goto top
  42.         MarkLine DeleteBlock            * delete file name
  43.         SaveFile GExit                  * bye bye
  44.